Minimal Surface Area nco LANCELOT AMPL short solve; param maxz; let maxz := max {x in X, y in Y} z[x,y]; printf {x in X, y in Y}: "%7.3f, \n", z[x,y] ; This is minsurf.mod available from http://www.princeton.edu/~rvdb/